clear all
global wdraw "C:\Users\creto\Desktop\chinese_students_2017"
global wd "$wdraw\Data\1.ChinaData\StudyAbroadAgency"
cd "$wd"

 

use "$wd\Data_StudyAbroadAgency8015.dta",clear
set scheme rbn2mono
collapse (mean) fnum, by(year)
keep if year>=1990 & year<=2013
scatter fn year
twoway connect fn year,  lcolor(blue) mcolor(blue) xlabel(1990(1)2013, gmin gmax nogrid angle(45) )  ylabel(, nogrid format(%5.0f)) ||, ///
				xtitle(Year,size(Large)) ytitle("Average Number of New Study Abroad Agencies" , size(med))
		graph export "$wd\Fig_numStudyAbroad.png",replace
